home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh20a.d64
/
listing 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
26 lines
10 REM * BEISPIEL 1 *
20 REM ERZEUGEN EIGENER ZEICHEN
31 POKE 56334,PEEK(56334) AND 254:POKE 1,PEEK(1) AND 251
35 FOR I=0 TO 63 :REM ZU KOPIERENDER ZEICHENBEREICH
36 FOR J=0 TO 7 :REM ALLE 8 BYTES PRO ZEICHEN
37 POKE 12288+I*8+J,PEEK(53248+I*8+J):REM EIN BYTE KOPIEREN
38 NEXT J:NEXT I :REM NRNDCHSTES BYTE ODER ZEICHEN
39 POKE 1,PEEK(1) OR 4:POKE 56334,PEEK(56334) OR 1
40 POKE 53272,(PEEK(53272) AND 240) + 12:REM ZEICHEN AUS RAM HOLEN
60 FOR ZEIC=60 TO 63 :REM NEUE ZEICHEN 60 BIS 63
80 FOR BYTE=0 TO 7 :REM ALLE 8 BYTES PRO ZEICHEN
100 READ NUMBER :REM EINLESEN 1/8 ZEICHEN
120 POKE 12288+(8*ZEIC)+BYTE,NUMBER:REM DATEN SPEICHERN
140 NEXT BYTE:NEXT ZEIC
150 PRINTCHR$(147)TAB(255)CHR$(60);
155 PRINTCHR$(61)TAB(55)CHR$(62)CHR$(63)
160 REM BRINGT DIE NEUDEFINIERTEN ZEICHEN AUF BILDSCHIRM
170 GET A$ :REM ERWARTET TASTENDRUCK
180 IF A$="" THEN GOTO 170 :REM NEUER VERSUCH WENN KEINE TASTE
190 POKE 53272,21 :REM ZURUECK ZU NORMALEN ZEICHEN
200 DATA 4,6,7,5,7,7,3,3 :REM DATEN FUER ZEICHEN 60
210 DATA 32,96,224,160,224,224,192,192:REM ZEICHEN 61
220 DATA 7,7,7,31,31,95,143,127:REM ZEICHEN 62
230 DATA 224,224,224,248,248,248,240,224:REM ZEICHEN 63
240 END